home *** CD-ROM | disk | FTP | other *** search
/ Chaos 3 / Chaos_3_1997-06_-_de_Side_A.d64 / 006.the olly (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  927b  |  35 lines
  1. 100 poke 53280,0:poke53281,0:poke646,1
  2. 101 print"[147]"
  3. 102 poke53272,22
  4. 103 print"
  5. 104 [153]" left$allo len64 ascreax ! left$ier ist mal
  6. 105 print" wieder [212]he [207]lly mit ein bisschen
  7. 106 [153]" (NULL)oftware fuer euch !
  8. 107 print"
  9. 108 [153]"  1 - len64er lenlub right$nformation
  10. 109 :print: print"  2 - 90 sec. [194]ackup
  11. 110 :[153]:[153]"  3 - (NULL)oeschschutz 3
  12. 111 print: print"  4 - [196]iskettenquaeler
  13. 112 [153]:[153]"  5 - str$ream (NULL)riter
  14. 113 geta$:if a$=""then 113
  15. 114 ifa$="1"then b$="001.*":goto2199
  16. 115 ifa$="2"then b$="002.*":goto2199
  17. 116 ifa$="3"then b$="003.*":goto2199
  18. 117 ifa$="4"then b$="004.*":goto2199
  19. 118 ifa$="5"then b$="005.*":goto2199
  20. 120 print"
  21. 2199 [151] 53281,0:[151]53280,0:[151]646,0
  22. 2200 [151]828,0:[153][199](147)[199](17)
  23. 2210 [153]"load"[199](34);b$;[199](34);",8
  24. 2220 print chr$(17)chr$(17)chr$(17)chr$(17)"run"
  25. 2230 poke631,13:poke632,13:poke198,2
  26. 2240 print chr$(19);:end
  27. 2300 print"[147]":sys57812(b$),8,1:poke780,0:sys65493
  28. 2310 sys49152:run
  29. 2600 poke828,0:printchr$(19)chr$(17)
  30. 2610 print"load"chr$(34);b$;chr$(34);",8
  31. 2620 [153] [199](17)[199](17)[199](17)[199](17)"print"[199](34);"print";[199](34)":run"
  32. 2630 [151]631,13:[151]198,1
  33. 2640 [153] [199](19);:[128]
  34. 3000 [153]"load open                                     wait"
  35.